home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64
/
S U P E R T A P
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
66 lines
0 xm=53264:x=53248:d=-1:ga=72:ee=0:ka=255:poke53269,0
1 ifpeek(50307)<>120then5
2 poke50257,8:poke50259,001:poke50260,017:poke50261,074:poke50262,026
5 t$="[147][156] [211]uper[212]ape-[196] [201][201] [146][144]":poke53276,1
6 a=832:b=927:fori=atob:readp:pokei,p:next:poke2040,13:poke53285,2:poke53286,0
10 poke53281,15:poke53280,15:print"[147][144]"chr$(14)chr$(8):poke53287,14
20 printt$
30 print:print"[196]aten vom [195]-64 auf andere [210]echner ueber-";
40 print"tragen? [205]it [211]uper[212]ape kein [208]roblem."
50 print:print"[205]it diesem [204]ade- und [211]peicherverfahren"
60 print"fuer [203]assette stellen wir [201]hnen nicht"
70 print"nur das unseres [215]issens derzeit schnell-";
80 print"ste [208]rogramm dieser [193]rt zur [214]erfuegung"
90 print"(zwoelfmal schneller als die [195]ommodore-"
100 print"[210]outinen), sondern auch eine [211]chnitt-"
110 print"stelle zu zahlreichen anderen [210]echner-"
120 print"modellen.":print
130 print"[211]elbst [194]esitzer der [198]loppy 1541 werden"
140 print"[193]ugen machen: [211]uper[212]ape stellt ge-"
150 print"schwindigkeitsmaessig auch diese in den"
160 print"[211]chatten."
200 gosub1000
210 printt$
220 print:print"[215]ie gewohnt, koennen [211]ie jetzt mit den"
230 print"[212]asten [195][212][210][204] und s das [208]rogramm [211]uper[212]ape";
240 print"auf [201]hre eigene [203]assette oder [196]iskette"
245 print"abspeichern.":print
260 print"[193]usfuehrliche [197]rlaeuterungen zur "
270 print"[194]edienung und [198]unktion finden [211]ie"
280 print"im [194]eiheft.":print
290 print:print:print::print:print:print"[208][211]: [196]ieser [197]rlaeuterungstext wird na-"
295 print"tuerlich nicht mit abgespeichert!"
298 nd=peek(162):ifint(nd/7)=nd/7thengosub2000
299 gosub1000
300 run
1000 poke198,0:bl$=">[146][144]"
1010 poke214,22:poke211,26:sys58640:print"[156][215]eiter: [212]aste[146][144]"
1015 poke214,22:poke211,24:sys58640:print""bl$;
1020 fori=0to80:getw$:ifw$theni=90
1030 next:ifi>85thenreturn
1040 poke214,22:poke211,24:sys58640:printbl$;
1050 fori=0to80
1060 getw$:ifw$theni=90
1070 next:ifi>85thenreturn
1080 goto1015
2000 pokex,ga:pokexm,1:poke53249,130:poke53277,1:poke53271,1:poke53269,1:
2100 gosub60000:return
10000 data0,0,0,0,0,0,0,0,0,0,10,0,0,10,0,0
10003 data63,252,3,255,255,12,61,255,12,61,255,48,53,127,48,61
10004 data255,48,61,255,63,255,255,21,85,85,95,213,253,124,247,207
10005 data115,55,51,51,55,51,60,243,207,15,192,252,0,0,0,255
10006 data173,0,208,208,8,173,16,208,240,13,206,16,208,173,0,208
10007 data56,233,6,141,0,208,96,169,0,141,21,208,96,49,0,208
60000 si=54272:pokesi+24,15:z=0
60010 pokesi,0:pokesi+1,34
60020 pokesi+5,16+10:pokesi+6,5*16
60030 forj=3to15:sys896
60040 pokesi+4,33:pokesi+1,60+j*3
60060 pokesi+4,32
60080 next
60090 forj=15to3step-1:sys896
60100 pokesi+4,33:pokesi+1,060+j*3
60120 pokesi+4,32
60140 nextj:z=z+1:ifz<2then60030
60150 poke53269,0:return